/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / LABELA.BIN / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 44 41 54 41 20 | 31 36 39 2c 38 38 2c 31 |10 DATA |169,88,1|
|00000010| 34 31 2c 31 30 36 2c 33 | 2c 32 34 2c 31 30 35 2c |41,106,3|,24,105,|
|00000020| 32 2c 31 34 31 2c 39 33 | 2c 33 2c 31 36 39 2c 38 |2,141,93|,3,169,8|
|00000030| 35 2c 31 34 31 2c 31 32 | 33 0a 31 31 20 44 41 54 |5,141,12|3.11 DAT|
|00000040| 41 20 33 2c 31 36 39 2c | 31 31 2c 31 34 31 2c 31 |A 3,169,|11,141,1|
|00000050| 38 39 2c 33 2c 31 36 39 | 2c 30 2c 31 34 31 2c 31 |89,3,169|,0,141,1|
|00000060| 30 35 2c 33 2c 31 34 31 | 2c 31 32 32 2c 33 2c 31 |05,3,141|,122,3,1|
|00000070| 36 32 0a 31 32 20 44 41 | 54 41 20 34 34 2c 31 35 |62.12 DA|TA 44,15|
|00000080| 37 2c 35 39 2c 39 30 2c | 32 30 32 2c 32 30 38 2c |7,59,90,|202,208,|
|00000090| 32 35 30 2c 31 36 30 2c | 37 2c 31 36 32 2c 37 37 |250,160,|7,162,77|
|000000a0| 2c 31 36 39 2c 30 2c 32 | 34 2c 39 34 0a 31 33 20 |,169,0,2|4,94.13 |
|000000b0| 44 41 54 41 20 30 2c 38 | 38 2c 31 30 36 2c 32 30 |DATA 0,8|8,106,20|
|000000c0| 32 2c 32 30 32 2c 32 30 | 32 2c 32 30 32 2c 32 30 |2,202,20|2,202,20|
|000000d0| 32 2c 32 30 32 2c 32 30 | 32 2c 32 30 32 2c 32 30 |2,202,20|2,202,20|
|000000e0| 32 2c 32 30 32 2c 32 30 | 32 2c 31 36 0a 31 34 20 |2,202,20|2,16.14 |
|000000f0| 44 41 54 41 20 32 33 38 | 2c 31 35 33 2c 39 36 2c |DATA 238|,153,96,|
|00000100| 38 37 2c 31 33 36 2c 31 | 36 2c 32 32 38 2c 32 33 |87,136,1|6,228,23|
|00000110| 38 2c 31 30 35 2c 33 2c | 32 30 38 2c 33 2c 32 33 |8,105,3,|208,3,23|
|00000120| 38 2c 31 30 36 2c 33 0a | 31 35 20 44 41 54 41 20 |8,106,3.|15 DATA |
|00000130| 31 37 33 2c 31 30 35 2c | 33 2c 32 30 35 2c 31 38 |173,105,|3,205,18|
|00000140| 39 2c 33 2c 32 30 38 2c | 32 31 2c 32 34 2c 31 30 |9,3,208,|21,24,10|
|00000150| 35 2c 37 37 2c 31 34 31 | 2c 31 30 35 2c 33 2c 31 |5,77,141|,105,3,1|
|00000160| 34 34 0a 31 36 20 44 41 | 54 41 20 34 2c 32 33 38 |44.16 DA|TA 4,238|
|00000170| 2c 31 30 36 2c 33 2c 32 | 34 2c 31 30 35 2c 31 31 |,106,3,2|4,105,11|
|00000180| 2c 31 34 31 2c 31 38 39 | 2c 33 2c 32 30 31 2c 31 |,141,189|,3,201,1|
|00000190| 31 35 2c 32 34 30 2c 31 | 37 2c 31 36 39 0a 31 37 |15,240,1|7,169.17|
|000001a0| 20 44 41 54 41 20 38 2c | 32 34 2c 31 30 39 2c 31 | DATA 8,|24,109,1|
|000001b0| 32 32 2c 33 2c 31 34 31 | 2c 31 32 32 2c 33 2c 31 |22,3,141|,122,3,1|
|000001c0| 34 34 2c 31 37 38 2c 32 | 33 38 2c 31 32 33 2c 33 |44,178,2|38,123,3|
|000001d0| 2c 37 36 2c 39 37 0a 31 | 38 20 44 41 54 41 20 33 |,76,97.1|8 DATA 3|
|000001e0| 2c 31 37 33 2c 31 32 33 | 2c 33 2c 32 30 31 2c 38 |,173,123|,3,201,8|
|000001f0| 37 2c 32 30 38 2c 31 36 | 35 2c 39 36 2c 31 31 0a |7,208,16|5,96,11.|
|00000200| 32 30 20 52 45 4d 20 5e | 20 42 52 49 41 4e 20 48 |20 REM ^| BRIAN H|
|00000210| 45 59 42 4f 45 52 27 53 | 20 52 4f 54 41 54 45 20 |EYBOER'S| ROTATE |
|00000220| 47 52 41 50 48 49 43 20 | 52 4f 55 54 49 4e 45 20 |GRAPHIC |ROUTINE |
|00000230| 5e 0a 32 32 20 44 41 54 | 41 20 31 36 32 2c 31 2c |^.22 DAT|A 162,1,|
|00000240| 33 32 2c 31 39 38 2c 32 | 35 35 2c 33 32 2c 32 32 |32,198,2|55,32,22|
|00000250| 38 2c 32 35 35 2c 31 36 | 30 2c 30 2c 31 34 35 2c |8,255,16|0,0,145,|
|00000260| 32 34 37 2c 32 33 30 2c | 32 34 37 2c 32 30 38 2c |247,230,|247,208,|
|00000270| 32 2c 32 33 30 2c 32 34 | 38 0a 32 34 20 44 41 54 |2,230,24|8.24 DAT|
|00000280| 41 31 36 39 2c 36 30 2c | 31 39 37 2c 32 34 37 2c |A169,60,|197,247,|
|00000290| 32 30 38 2c 32 33 37 2c | 31 36 39 2c 39 30 2c 31 |208,237,|169,90,1|
|000002a0| 39 37 2c 32 34 38 2c 32 | 30 38 2c 32 33 31 2c 39 |97,248,2|08,231,9|
|000002b0| 36 0a 32 36 20 52 45 4d | 20 5e 20 41 4e 44 52 45 |6.26 REM| ^ ANDRE|
|000002c0| 57 20 53 49 47 55 45 4e | 5a 41 27 53 20 47 45 54 |W SIGUEN|ZA'S GET|
|000002d0| 20 47 52 41 50 48 49 43 | 20 46 52 4f 4d 20 44 49 | GRAPHIC| FROM DI|
|000002e0| 53 4b 20 52 4f 55 54 49 | 4e 45 20 5e 0a 31 30 30 |SK ROUTI|NE ^.100|
|000002f0| 20 50 4f 4b 45 35 36 2c | 38 34 3a 43 4c 52 3a 52 | POKE56,|84:CLR:R|
|00000300| 45 4d 20 50 4f 57 45 52 | 2d 4f 4e 20 56 41 4c 55 |EM POWER|-ON VALU|
|00000310| 45 20 49 53 20 31 36 30 | 20 28 53 45 45 20 4c 49 |E IS 160| (SEE LI|
|00000320| 4e 45 20 39 31 32 29 0a | 31 30 34 20 50 4f 4b 45 |NE 912).|104 POKE|
|00000330| 35 33 32 38 30 2c 35 3a | 50 4f 4b 45 35 33 32 38 |53280,5:|POKE5328|
|00000340| 31 2c 30 3a 50 52 49 4e | 54 22 93 22 54 41 42 28 |1,0:PRIN|T"."TAB(|
|00000350| 34 29 22 0e 08 1f d0 52 | 49 4e 54 20 9e d3 48 4f |4)"....R|INT ..HO|
|00000360| 50 20 1e c7 52 41 50 48 | 49 43 53 20 05 cc 41 42 |P ..RAPH|ICS ..AB|
|00000370| 45 4c 20 cd 41 4b 45 52 | 00 0a 31 30 36 20 50 52 |EL .AKER|..106 PR|
|00000380| 49 4e 54 22 11 42 59 20 | c1 4e 44 52 45 57 20 d6 |INT".BY |.NDREW .|
|00000390| 2e 20 c9 2e 20 d3 49 47 | 55 45 4e 5a 41 22 3a 50 |. .. .IG|UENZA":P|
|000003a0| 52 49 4e 54 22 c1 50 54 | 2e 20 36 22 3a 50 52 49 |RINT".PT|. 6":PRI|
|000003b0| 4e 54 22 31 30 37 33 39 | 20 d2 4f 4f 53 45 56 45 |NT"10739| .OOSEVE|
|000003c0| 4c 54 20 d7 41 59 20 ce | c5 00 0a 31 30 38 20 50 |LT .AY .|...108 P|
|000003d0| 52 49 4e 54 22 d3 45 41 | 54 54 4c 45 2c 20 d7 c1 |RINT".EA|TTLE, ..|
|000003e0| 20 20 39 38 31 32 35 20 | 20 20 20 28 32 30 36 29 |  98125 |   (206)|
|000003f0| 33 36 37 2d 35 31 39 32 | 22 3a 50 52 49 4e 54 22 |367-5192|":PRINT"|
|00000400| 11 c2 41 53 45 44 20 4f | 4e 20 41 20 50 52 4f 47 |..ASED O|N A PROG|
|00000410| 52 41 4d 20 42 59 20 c2 | 52 49 41 4e 20 c8 45 59 |RAM BY .|RIAN .EY|
|00000420| 42 4f 45 52 00 0a 31 31 | 30 20 51 54 24 3d 43 48 |BOER..11|0 QT$=CH|
|00000430| 52 24 28 33 34 29 3a 50 | 52 49 4e 54 22 28 d4 48 |R$(34):P|RINT"(.H|
|00000440| 41 4e 4b 53 2c 20 c2 52 | 49 41 4e 2c 20 57 48 45 |ANKS, .R|IAN, WHE|
|00000450| 52 45 56 45 52 20 59 4f | 55 20 41 52 45 21 29 11 |REVER YO|U ARE!).|
|00000460| 00 0a 31 31 32 20 50 52 | 49 4e 54 22 d4 48 49 53 |..112 PR|INT".HIS|
|00000470| 20 50 52 4f 47 52 41 4d | 20 50 52 49 4e 54 53 20 | PROGRAM| PRINTS |
|00000480| 4f 4e 20 53 54 41 4e 44 | 41 52 44 20 4f 4e 45 2d |ON STAND|ARD ONE-|
|00000490| 22 3a 50 52 49 4e 54 22 | 49 4e 43 48 20 28 33 20 |":PRINT"|INCH (3 |
|000004a0| 31 2f 32 20 58 20 31 35 | 2f 31 36 20 49 4e 43 48 |1/2 X 15|/16 INCH|
|000004b0| 45 53 29 20 4d 41 49 4c | 49 4e 47 00 0a 31 31 33 |ES) MAIL|ING..113|
|000004c0| 20 50 52 49 4e 54 22 4c | 41 42 45 4c 53 2e 20 20 | PRINT"L|ABELS.  |
|000004d0| d4 48 49 53 20 50 52 4f | 47 52 41 4d 20 41 44 44 |.HIS PRO|GRAM ADD|
|000004e0| 53 20 41 20 d0 52 49 4e | 54 20 d3 48 4f 50 00 0a |S A .RIN|T .HOP..|
|000004f0| 31 31 34 20 50 52 49 4e | 54 22 28 54 4d 29 20 47 |114 PRIN|T"(TM) G|
|00000500| 52 41 50 48 49 43 20 54 | 4f 20 59 4f 55 52 20 54 |RAPHIC T|O YOUR T|
|00000510| 45 58 54 2c 20 41 4e 44 | 20 41 4c 4c 4f 57 53 00 |EXT, AND| ALLOWS.|
|00000520| 0a 31 31 35 20 50 52 49 | 4e 54 22 59 4f 55 20 54 |.115 PRI|NT"YOU T|
|00000530| 4f 20 50 52 49 4e 54 20 | 59 4f 55 52 20 54 45 58 |O PRINT |YOUR TEX|
|00000540| 54 20 49 4e 20 53 45 56 | 45 52 41 4c 20 44 49 46 |T IN SEV|ERAL DIF|
|00000550| 2d 00 0a 31 31 36 20 50 | 52 49 4e 54 22 46 45 52 |-..116 P|RINT"FER|
|00000560| 45 4e 54 20 53 54 59 4c | 45 53 2e 00 0a 31 31 37 |ENT STYL|ES...117|
|00000570| 20 50 52 49 4e 54 22 d4 | 48 49 53 20 50 52 4f 47 | PRINT".|HIS PROG|
|00000580| 52 41 4d 20 57 41 53 20 | 57 52 49 54 54 45 4e 20 |RAM WAS |WRITTEN |
|00000590| 46 4f 52 20 41 20 c7 45 | 4d 49 4e 49 00 0a 31 31 |FOR A .E|MINI..11|
|000005a0| 38 20 50 52 49 4e 54 22 | 31 30 2d d8 20 50 52 49 |8 PRINT"|10-. PRI|
|000005b0| 4e 54 45 52 20 41 4e 44 | 20 c3 41 52 44 43 4f 20 |NTER AND| .ARDCO |
|000005c0| 2f 2b c7 20 49 4e 54 45 | 52 46 41 43 45 2e 00 0a |/+. INTE|RFACE...|
|000005d0| 31 31 39 20 50 52 49 4e | 54 22 c9 54 20 53 48 4f |119 PRIN|T".T SHO|
|000005e0| 55 4c 44 20 57 4f 52 4b | 20 57 49 54 48 20 c5 50 |ULD WORK| WITH .P|
|000005f0| 53 4f 4e 20 50 52 49 4e | 54 45 52 53 20 41 4e 44 |SON PRIN|TERS AND|
|00000600| 00 0a 31 32 30 20 50 52 | 49 4e 54 22 4f 54 48 45 |..120 PR|INT"OTHE|
|00000610| 52 20 49 4e 54 45 52 46 | 41 43 45 53 2c 20 42 55 |R INTERF|ACES, BU|
|00000620| 54 20 c9 20 48 41 56 45 | 20 4e 4f 54 20 54 52 49 |T . HAVE| NOT TRI|
|00000630| 45 44 00 0a 31 32 31 20 | 50 52 49 4e 54 22 49 54 |ED..121 |PRINT"IT|
|00000640| 2e 22 0a 31 32 32 20 44 | 4c 24 3d 43 48 52 24 28 |.".122 D|L$=CHR$(|
|00000650| 32 30 29 3a 53 50 24 3d | 22 20 20 20 20 20 20 20 |20):SP$=|"       |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000680| 22 2b 44 4c 24 2b 22 20 | 9d 94 20 22 0a 31 32 35 |"+DL$+" |.. ".125|
|00000690| 20 50 52 49 4e 54 22 11 | d9 4f 55 20 43 41 4e 20 | PRINT".|.OU CAN |
|000006a0| 48 41 56 45 20 53 45 56 | 45 4e 20 4c 49 4e 45 53 |HAVE SEV|EN LINES|
|000006b0| 20 4f 46 20 54 45 58 54 | 2c 20 57 49 54 48 00 0a | OF TEXT|, WITH..|
|000006c0| 31 32 36 20 50 52 49 4e | 54 22 45 41 43 48 20 4c |126 PRIN|T"EACH L|
|000006d0| 49 4e 45 20 48 41 56 49 | 4e 47 20 32 34 20 43 48 |INE HAVI|NG 24 CH|
|000006e0| 41 52 41 43 54 45 52 53 | 2e 20 20 d9 4f 55 22 3a |ARACTERS|.  .OU":|
|000006f0| 47 4f 53 55 42 32 30 30 | 3a 49 46 4e 54 48 45 4e |GOSUB200|:IFNTHEN|
|00000700| 36 30 30 0a 31 32 37 20 | 50 52 49 4e 54 22 43 41 |600.127 |PRINT"CA|
|00000710| 4e 20 55 53 45 20 44 4f | 55 42 4c 45 2d 57 49 44 |N USE DO|UBLE-WID|
|00000720| 45 20 43 48 52 41 43 54 | 45 52 53 3b 20 45 41 43 |E CHRACT|ERS; EAC|
|00000730| 48 00 0a 31 32 38 20 50 | 52 49 4e 54 22 44 4f 55 |H..128 P|RINT"DOU|
|00000740| 42 4c 45 20 43 48 41 52 | 41 43 54 45 52 20 55 53 |BLE CHAR|ACTER US|
|00000750| 45 53 20 54 57 4f 20 4f | 46 20 54 48 45 20 32 34 |ES TWO O|F THE 24|
|00000760| 00 0a 31 32 39 20 50 52 | 49 4e 54 22 50 4c 41 43 |..129 PR|INT"PLAC|
|00000770| 45 53 2e 20 20 d9 4f 55 | 20 43 41 4e 20 4d 49 58 |ES.  .OU| CAN MIX|
|00000780| 20 53 49 4e 47 4c 45 20 | 41 4e 44 20 44 4f 55 42 | SINGLE |AND DOUB|
|00000790| 4c 45 00 0a 31 33 30 20 | 50 52 49 4e 54 22 57 49 |LE..130 |PRINT"WI|
|000007a0| 44 54 48 20 4f 4e 20 54 | 48 45 20 53 41 4d 45 20 |DTH ON T|HE SAME |
|000007b0| 4c 49 4e 45 2e 20 20 c5 | 41 43 48 20 4c 49 4e 45 |LINE.  .|ACH LINE|
|000007c0| 20 43 41 4e 00 0a 31 33 | 31 20 50 52 49 4e 54 22 | CAN..13|1 PRINT"|
|000007d0| 42 45 20 50 52 49 4e 54 | 45 44 20 49 4e 20 45 49 |BE PRINT|ED IN EI|
|000007e0| 54 48 45 52 20 4e 4f 52 | 4d 41 4c 20 4f 52 20 49 |THER NOR|MAL OR I|
|000007f0| 54 41 4c 49 43 00 0a 31 | 33 32 20 50 52 49 4e 54 |TALIC..1|32 PRINT|
|00000800| 22 4d 4f 44 45 53 2e 20 | 20 c9 4e 20 41 44 44 49 |"MODES. | .N ADDI|
|00000810| 54 49 4f 4e 2c 20 59 4f | 55 20 43 41 4e 20 41 44 |TION, YO|U CAN AD|
|00000820| 44 20 53 55 50 45 52 2d | 00 0a 31 33 33 20 50 52 |D SUPER-|..133 PR|
|00000830| 49 4e 54 22 4f 52 20 53 | 55 42 2d 53 43 52 49 50 |INT"OR S|UB-SCRIP|
|00000840| 54 2c 20 4f 52 20 42 4f | 4c 44 46 41 43 45 2e 20 |T, OR BO|LDFACE. |
|00000850| d3 49 4e 43 45 20 54 48 | 45 53 45 00 0a 31 33 34 |.INCE TH|ESE..134|
|00000860| 20 50 52 49 4e 54 22 46 | 45 41 54 55 52 45 53 20 | PRINT"F|EATURES |
|00000870| 4f 4e 4c 59 20 57 4f 52 | 4b 20 4f 4e 20 54 48 45 |ONLY WOR|K ON THE|
|00000880| 20 50 52 49 4e 54 45 52 | 27 53 20 4f 57 4e 00 0a | PRINTER|'S OWN..|
|00000890| 31 33 35 20 50 52 49 4e | 54 22 43 48 41 52 41 43 |135 PRIN|T"CHARAC|
|000008a0| 54 45 52 53 2c 20 59 4f | 55 20 43 41 4e 20 4f 4e |TERS, YO|U CAN ON|
|000008b0| 4c 59 20 54 59 50 45 20 | 4c 45 54 54 45 52 53 00 |LY TYPE |LETTERS.|
|000008c0| 0a 31 33 36 20 50 52 49 | 4e 54 22 41 4e 44 20 50 |.136 PRI|NT"AND P|
|000008d0| 55 4e 43 54 55 41 54 49 | 4f 4e 2d 2d 4e 4f 20 c3 |UNCTUATI|ON--NO .|
|000008e0| 4f 4d 4d 4f 44 4f 52 45 | 20 43 48 41 52 41 43 2d |OMMODORE| CHARAC-|
|000008f0| 00 0a 31 33 37 20 50 52 | 49 4e 54 22 54 45 52 53 |..137 PR|INT"TERS|
|00000900| 2c 20 50 4c 45 41 53 45 | 2e 11 00 0a 31 33 38 20 |, PLEASE|....138 |
|00000910| 50 52 49 4e 54 22 ce 4f | 54 45 3a 20 20 c4 55 45 |PRINT".O|TE:  .UE|
|00000920| 20 54 4f 20 54 48 45 20 | 47 52 41 50 48 49 43 20 | TO THE |GRAPHIC |
|00000930| 50 52 49 4e 54 49 4e 47 | 2c 20 46 4f 52 00 0a 31 |PRINTING|, FOR..1|
|00000940| 33 39 20 50 52 49 4e 54 | 22 42 45 53 54 20 52 45 |39 PRINT|"BEST RE|
|00000950| 53 55 4c 54 53 20 50 55 | 54 20 42 4c 41 4e 4b 20 |SULTS PU|T BLANK |
|00000960| 4c 49 4e 45 53 20 42 45 | 54 57 45 45 4e 00 0a 31 |LINES BE|TWEEN..1|
|00000970| 34 30 20 50 52 49 4e 54 | 22 59 4f 55 52 20 54 45 |40 PRINT|"YOUR TE|
|00000980| 58 54 2e 20 20 28 d4 4f | 20 57 52 49 54 45 20 41 |XT.  (.O| WRITE A|
|00000990| 20 46 4f 55 52 2d 4c 49 | 4e 45 20 4d 45 53 2d 00 | FOUR-LI|NE MES-.|
|000009a0| 0a 31 34 31 20 50 52 49 | 4e 54 22 53 41 47 45 2c |.141 PRI|NT"SAGE,|
|000009b0| 20 55 53 45 20 4c 49 4e | 45 53 20 31 2c 20 33 2c | USE LIN|ES 1, 3,|
|000009c0| 20 35 20 41 4e 44 20 37 | 2c 20 41 4e 44 20 46 4f | 5 AND 7|, AND FO|
|000009d0| 52 00 0a 31 34 32 20 50 | 52 49 4e 54 22 41 20 54 |R..142 P|RINT"A T|
|000009e0| 48 52 45 45 2d 4c 49 4e | 45 20 4f 4e 45 20 55 53 |HREE-LIN|E ONE US|
|000009f0| 45 20 32 2c 20 34 2c 20 | 41 4e 44 20 36 2e 29 11 |E 2, 4, |AND 6.).|
|00000a00| 00 0a 31 34 33 20 50 52 | 49 4e 54 22 d4 4f 20 55 |..143 PR|INT".O U|
|00000a10| 53 45 20 54 48 45 20 47 | 52 41 50 48 49 43 53 20 |SE THE G|RAPHICS |
|00000a20| 4f 4e 20 54 48 45 20 d0 | 52 49 4e 54 20 d3 48 4f |ON THE .|RINT .HO|
|00000a30| 50 00 0a 31 34 34 20 50 | 52 49 4e 54 22 50 52 4f |P..144 P|RINT"PRO|
|00000a40| 47 52 41 4d 20 44 49 53 | 4b 2c 20 55 53 45 20 54 |GRAM DIS|K, USE T|
|00000a50| 48 45 20 4c 45 54 54 45 | 52 20 22 43 48 52 24 28 |HE LETTE|R "CHR$(|
|00000a60| 33 34 29 22 49 22 43 48 | 52 24 28 33 34 29 0a 31 |34)"I"CH|R$(34).1|
|00000a70| 34 35 20 50 52 49 4e 54 | 22 46 4f 4c 4c 4f 57 45 |45 PRINT|"FOLLOWE|
|00000a80| 44 20 42 59 20 41 20 54 | 57 4f 2d 44 49 47 49 54 |D BY A T|WO-DIGIT|
|00000a90| 20 4e 55 4d 42 45 52 20 | 46 52 4f 4d 20 30 31 00 | NUMBER |FROM 01.|
|00000aa0| 0a 31 34 36 20 50 52 49 | 4e 54 22 54 4f 20 36 30 |.146 PRI|NT"TO 60|
|00000ab0| 2e 11 00 0a 31 34 37 20 | 50 52 49 4e 54 22 d9 4f |....147 |PRINT".O|
|00000ac0| 55 20 57 49 4c 4c 20 53 | 45 45 20 54 48 45 20 41 |U WILL S|EE THE A|
|00000ad0| 52 45 41 20 57 48 45 52 | 45 20 59 4f 55 20 54 59 |REA WHER|E YOU TY|
|00000ae0| 50 45 20 41 22 3a 47 4f | 53 55 42 32 30 30 3a 49 |PE A":GO|SUB200:I|
|00000af0| 46 4e 3d 31 54 48 45 4e | 36 30 30 0a 31 34 38 20 |FN=1THEN|600.148 |
|00000b00| 50 52 49 4e 54 22 4c 49 | 4e 45 20 46 4f 52 20 59 |PRINT"LI|NE FOR Y|
|00000b10| 4f 55 52 20 4d 45 53 53 | 41 47 45 2e 20 20 d4 4f |OUR MESS|AGE.  .O|
|00000b20| 20 54 48 45 20 52 49 47 | 48 54 00 0a 31 34 39 20 | THE RIG|HT..149 |
|00000b30| 50 52 49 4e 54 22 4f 46 | 20 45 41 43 48 20 4c 49 |PRINT"OF| EACH LI|
|00000b40| 4e 45 20 49 53 20 41 20 | 53 45 52 49 45 53 20 4f |NE IS A |SERIES O|
|00000b50| 46 20 22 43 48 52 24 28 | 33 34 29 22 46 4c 41 47 |F "CHR$(|34)"FLAG|
|00000b60| 53 22 43 48 52 24 28 33 | 34 29 22 20 54 48 54 9d |S"CHR$(3|4)" THT.|
|00000b70| 94 41 00 0a 31 35 30 20 | 50 52 49 4e 54 22 54 45 |.A..150 |PRINT"TE|
|00000b80| 4c 4c 20 57 48 45 54 48 | 45 52 20 54 48 41 54 20 |LL WHETH|ER THAT |
|00000b90| 4c 49 4e 45 20 57 49 4c | 4c 20 42 45 20 50 52 49 |LINE WIL|L BE PRI|
|00000ba0| 4e 54 45 44 00 0a 31 35 | 31 20 50 52 49 4e 54 22 |NTED..15|1 PRINT"|
|00000bb0| 49 4e 20 42 4f 4c 44 46 | 41 43 45 2c 20 49 54 41 |IN BOLDF|ACE, ITA|
|00000bc0| 4c 49 43 53 20 45 54 43 | 2e 20 20 d0 52 45 53 53 |LICS ETC|.  .RESS|
|00000bd0| 20 54 48 45 00 0a 31 35 | 32 20 50 52 49 4e 54 22 | THE..15|2 PRINT"|
|00000be0| 4b 45 59 53 20 41 53 20 | 53 48 4f 57 4e 20 4f 4e |KEYS AS |SHOWN ON|
|00000bf0| 20 54 48 45 20 4d 45 4e | 55 20 54 4f 20 43 48 41 | THE MEN|U TO CHA|
|00000c00| 4e 47 45 20 54 48 45 00 | 0a 31 35 33 20 50 52 49 |NGE THE.|.153 PRI|
|00000c10| 4e 54 22 56 41 52 49 4f | 55 53 20 46 4c 41 47 53 |NT"VARIO|US FLAGS|
|00000c20| 2e 11 00 0a 31 35 38 20 | 50 52 49 4e 54 22 c8 41 |....158 |PRINT".A|
|00000c30| 56 45 20 46 55 4e 21 22 | 3a 47 4f 54 4f 36 30 30 |VE FUN!"|:GOTO600|
|00000c40| 0a 31 39 37 20 3a 0a 31 | 39 38 20 52 45 4d 20 2a |.197 :.1|98 REM *|
|00000c50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 57 41 49 54 |********|*** WAIT|
|00000c60| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 31 | *******|******.1|
|00000c70| 39 39 20 3a 0a 32 30 30 | 20 50 52 49 4e 54 22 12 |99 :.200| PRINT".|
|00000c80| 9e 20 3c d2 c5 d4 d5 d2 | ce 3e 20 46 4f 52 20 4d |. <.....|.> FOR M|
|00000c90| 4f 52 45 20 48 45 4c 50 | 2c 20 3c c6 31 3e 20 54 |ORE HELP|, <.1> T|
|00000ca0| 4f 20 53 54 41 52 54 20 | 9d 94 20 91 05 22 3a 4e |O START |.. ..":N|
|00000cb0| 3d 30 0a 32 30 32 20 47 | 45 54 41 24 3a 49 46 41 |=0.202 G|ETA$:IFA|
|00000cc0| 24 3d 22 85 22 54 48 45 | 4e 4e 3d 31 3a 52 45 54 |$="."THE|NN=1:RET|
|00000cd0| 55 52 4e 0a 32 30 34 20 | 4f 4e 2d 28 41 24 3c 3e |URN.204 |ON-(A$<>|
|00000ce0| 43 48 52 24 28 31 33 29 | 29 47 4f 54 4f 32 30 32 |CHR$(13)|)GOTO202|
|00000cf0| 3a 50 52 49 4e 54 53 50 | 24 22 91 22 3a 52 45 54 |:PRINTSP|$".":RET|
|00000d00| 55 52 4e 0a 32 30 37 20 | 3a 0a 32 30 38 20 52 45 |URN.207 |:.208 RE|
|00000d10| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 20 46 4c 41 53 48 |M ******|** FLASH|
|00000d20| 20 43 55 52 53 4f 52 20 | 2a 2a 2a 2a 2a 2a 2a 2a | CURSOR |********|
|00000d30| 2a 0a 32 30 39 20 3a 0a | 32 31 30 20 51 3d 30 3a |*.209 :.|210 Q=0:|
|00000d40| 50 52 49 4e 54 22 a3 9d | 22 3b 0a 32 31 32 20 47 |PRINT"..|";.212 G|
|00000d50| 45 54 41 24 3a 49 46 41 | 24 3d 22 5f 22 54 48 45 |ETA$:IFA|$="_"THE|
|00000d60| 4e 52 55 4e 0a 32 31 34 | 20 49 46 41 24 3c 3e 22 |NRUN.214| IFA$<>"|
|00000d70| 22 54 48 45 4e 52 45 54 | 55 52 4e 0a 32 31 36 20 |"THENRET|URN.216 |
|00000d80| 47 45 54 41 24 3a 49 46 | 41 24 3d 22 5f 22 54 48 |GETA$:IF|A$="_"TH|
|00000d90| 45 4e 52 55 4e 0a 32 31 | 38 20 49 46 41 24 3c 3e |ENRUN.21|8 IFA$<>|
|00000da0| 22 22 54 48 45 4e 52 45 | 54 55 52 4e 0a 32 32 30 |""THENRE|TURN.220|
|00000db0| 20 47 45 54 41 24 3a 49 | 46 41 24 3d 22 5f 22 54 | GETA$:I|FA$="_"T|
|00000dc0| 48 45 4e 52 55 4e 0a 32 | 32 32 20 49 46 41 24 3c |HENRUN.2|22 IFA$<|
|00000dd0| 3e 22 22 54 48 45 4e 52 | 45 54 55 52 4e 0a 32 32 |>""THENR|ETURN.22|
|00000de0| 34 20 51 3d 51 2b 31 2b | 31 36 2a 28 51 3d 31 35 |4 Q=Q+1+|16*(Q=15|
|00000df0| 29 3a 50 52 49 4e 54 51 | 24 28 51 29 22 92 9d 22 |):PRINTQ|$(Q)".."|
|00000e00| 3b 3a 47 4f 54 4f 32 31 | 32 0a 32 32 37 20 3a 0a |;:GOTO21|2.227 :.|
|00000e10| 32 32 38 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |228 REM |********|
|00000e20| 2a 20 44 52 41 57 20 53 | 43 52 45 45 4e 20 2a 2a |* DRAW S|CREEN **|
|00000e30| 2a 2a 2a 2a 2a 2a 2a 0a | 32 32 39 20 3a 0a 32 33 |*******.|229 :.23|
|00000e40| 30 20 50 52 49 4e 54 22 | 93 11 11 11 11 11 11 11 |0 PRINT"|........|
|00000e50| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000e60| 11 12 1e 20 20 20 20 20 | d0 d2 c5 d3 d3 20 5f 20 |...     |..... _ |
|00000e70| d4 cf 20 d2 c5 d3 d4 c1 | d2 d4 20 d4 c8 c5 20 d0 |.. .....|.. ... .|
|00000e80| d2 cf c7 d2 c1 cd 20 20 | 20 20 9d 94 20 13 22 0a |......  |  .. .".|
|00000e90| 32 33 32 20 50 52 49 4e | 54 22 91 92 05 a4 a4 a4 |232 PRIN|T"......|
|00000ea0| a4 a4 9e d0 52 49 4e 54 | 20 1f d3 48 4f 50 20 1e |....RINT| ..HOP .|
|00000eb0| c7 52 41 50 48 49 43 20 | 05 cc 41 42 45 4c 20 cd |.RAPHIC |..ABEL .|
|00000ec0| 41 4b 45 52 a4 a4 a4 a4 | 9d 94 a4 22 3a 52 45 54 |AKER....|...":RET|
|00000ed0| 55 52 4e 0a 32 33 37 20 | 3a 0a 32 33 38 20 52 45 |URN.237 |:.238 RE|
|00000ee0| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 49 4e 50 55 |M ******|*** INPU|
|00000ef0| 54 20 54 45 58 54 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |T TEXT *|********|
|00000f00| 2a 0a 32 33 39 20 3a 0a | 32 34 30 20 4e 3d 30 3a |*.239 :.|240 N=0:|
|00000f10| 4e 24 3d 22 22 0a 32 34 | 32 20 47 4f 53 55 42 32 |N$="".24|2 GOSUB2|
|00000f20| 31 30 3a 49 46 41 24 3d | 43 52 24 54 48 45 4e 52 |10:IFA$=|CR$THENR|
|00000f30| 45 54 55 52 4e 0a 32 34 | 34 20 49 46 41 24 3d 44 |ETURN.24|4 IFA$=D|
|00000f40| 4c 24 54 48 45 4e 49 46 | 28 4e 29 54 48 45 4e 50 |L$THENIF|(N)THENP|
|00000f50| 52 49 4e 54 22 20 9d 9d | 22 3b 3a 4e 3d 4e 2d 31 |RINT" ..|";:N=N-1|
|00000f60| 3a 4e 24 3d 4c 45 46 54 | 24 28 4e 24 2c 4e 29 3a |:N$=LEFT|$(N$,N):|
|00000f70| 47 4f 54 4f 32 34 32 0a | 32 34 36 20 49 46 4e 3d |GOTO242.|246 IFN=|
|00000f80| 4d 58 54 48 45 4e 32 34 | 32 0a 32 34 38 20 49 46 |MXTHEN24|2.248 IF|
|00000f90| 41 24 3d 51 54 24 54 48 | 45 4e 50 52 49 4e 54 41 |A$=QT$TH|ENPRINTA|
|00000fa0| 24 3b 3a 50 4f 4b 45 32 | 31 32 2c 30 3a 4e 24 3d |$;:POKE2|12,0:N$=|
|00000fb0| 4e 24 2b 41 24 3a 4e 3d | 4e 2b 31 3a 47 4f 54 4f |N$+A$:N=|N+1:GOTO|
|00000fc0| 32 34 32 0a 32 35 30 20 | 49 46 41 24 3e 3d 22 20 |242.250 |IFA$>=" |
|00000fd0| 22 41 4e 44 41 24 3c 3d | 22 5e 22 54 48 45 4e 50 |"ANDA$<=|"^"THENP|
|00000fe0| 52 49 4e 54 41 24 3b 3a | 4e 24 3d 4e 24 2b 41 24 |RINTA$;:|N$=N$+A$|
|00000ff0| 3a 4e 3d 4e 2b 31 3a 47 | 4f 54 4f 32 34 32 0a 32 |:N=N+1:G|OTO242.2|
|00001000| 35 32 20 49 46 41 24 3e | 3d 22 c1 22 41 4e 44 41 |52 IFA$>|="."ANDA|
|00001010| 24 3c 3d 22 da 22 54 48 | 45 4e 50 52 49 4e 54 41 |$<="."TH|ENPRINTA|
|00001020| 24 3b 3a 4e 24 3d 4e 24 | 2b 41 24 3a 4e 3d 4e 2b |$;:N$=N$|+A$:N=N+|
|00001030| 31 0a 32 35 34 20 47 4f | 54 4f 32 34 32 0a 32 35 |1.254 GO|TO242.25|
|00001040| 37 20 3a 0a 32 35 38 20 | 52 45 4d 20 2a 2a 2a 20 |7 :.258 |REM *** |
|00001050| 52 45 41 44 20 44 49 53 | 4b 20 45 52 52 4f 52 20 |READ DIS|K ERROR |
|00001060| 43 48 41 4e 4e 45 4c 20 | 2a 2a 2a 0a 32 35 39 20 |CHANNEL |***.259 |
|00001070| 3a 0a 32 36 30 20 49 4e | 50 55 54 23 31 35 2c 45 |:.260 IN|PUT#15,E|
|00001080| 52 2c 45 52 24 2c 54 52 | 2c 53 45 3a 52 45 54 55 |R,ER$,TR|,SE:RETU|
|00001090| 52 4e 0a 35 39 37 20 3a | 0a 35 39 38 20 52 45 4d |RN.597 :|.598 REM|
|000010a0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 4d 41 49 4e 20 | *******|** MAIN |
|000010b0| 53 54 41 52 54 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |START **|********|
|000010c0| 0a 35 39 39 20 3a 0a 36 | 30 30 20 50 52 49 4e 54 |.599 :.6|00 PRINT|
|000010d0| 53 50 24 22 91 22 3a 50 | 52 49 4e 54 22 9e d3 54 |SP$".":P|RINT"..T|
|000010e0| 41 4e 44 20 42 59 2e 2e | 2e 2e 91 22 3a 52 45 53 |AND BY..|...":RES|
|000010f0| 54 4f 52 45 3a 46 4f 52 | 54 3d 38 32 38 54 4f 39 |TORE:FOR|T=828TO9|
|00001100| 35 37 3a 52 45 41 44 59 | 3a 50 4f 4b 45 54 2c 59 |57:READY|:POKET,Y|
|00001110| 3a 4e 45 58 54 0a 36 30 | 31 20 46 4f 52 54 3d 39 |:NEXT.60|1 FORT=9|
|00001120| 35 38 54 4f 39 38 38 3a | 52 45 41 44 59 3a 50 4f |58TO988:|READY:PO|
|00001130| 4b 45 54 2c 59 3a 4e 45 | 58 54 0a 36 30 32 20 44 |KET,Y:NE|XT.602 D|
|00001140| 4c 24 3d 43 48 52 24 28 | 32 30 29 3a 43 52 24 3d |L$=CHR$(|20):CR$=|
|00001150| 43 48 52 24 28 31 33 29 | 3a 44 49 4d 51 24 28 31 |CHR$(13)|:DIMQ$(1|
|00001160| 35 29 3a 46 4f 52 54 3d | 30 54 4f 31 35 3a 52 45 |5):FORT=|0TO15:RE|
|00001170| 41 44 51 24 28 54 29 3a | 4e 45 58 54 3a 44 41 54 |ADQ$(T):|NEXT:DAT|
|00001180| 41 22 a3 22 2c 22 b7 22 | 2c 22 b8 22 2c 22 12 a2 |A".","."|,".","..|
|00001190| 22 0a 36 30 34 20 44 41 | 54 41 22 12 b9 22 2c 22 |".604 DA|TA"..","|
|000011a0| 12 af 22 2c 22 12 a4 22 | 2c 22 12 20 22 2c 22 12 |..",".."|,". ",".|
|000011b0| a3 22 2c 22 12 b7 22 2c | 22 12 b8 22 2c 22 a2 22 |.","..",|"..","."|
|000011c0| 2c 22 b9 22 2c 22 af 22 | 2c 22 a4 22 2c 22 20 22 |,".","."|,"."," "|
|000011d0| 0a 36 30 36 20 5a 24 3d | 43 48 52 24 28 30 29 3a |.606 Z$=|CHR$(0):|
|000011e0| 45 53 24 3d 22 1b 22 3a | 50 30 24 3d 22 1b 42 01 |ES$=".":|P0$=".B.|
|000011f0| 22 3a 44 57 24 3d 22 1b | 57 01 22 3a 44 46 24 3d |":DW$=".|W.":DF$=|
|00001200| 22 1b 57 22 2b 5a 24 3a | 4e 4f 24 3d 22 1b 35 22 |".W"+Z$:|NO$=".5"|
|00001210| 3a 49 54 24 3d 22 1b 34 | 22 0a 36 30 38 20 45 4d |:IT$=".4|".608 EM|
|00001220| 24 3d 22 1b 45 22 3a 45 | 46 24 3d 22 1b 46 22 3a |$=".E":E|F$=".F":|
|00001230| 53 42 24 3d 22 1b 53 01 | 22 3a 53 46 24 3d 22 1b |SB$=".S.|":SF$=".|
|00001240| 54 22 3a 53 55 24 3d 22 | 1b 53 22 2b 5a 24 3a 55 |T":SU$="|.S"+Z$:U|
|00001250| 4f 24 3d 22 1b 2d 01 22 | 3a 55 46 24 3d 22 1b 2d |O$=".-."|:UF$=".-|
|00001260| 22 2b 5a 24 0a 36 31 30 | 20 44 49 4d 54 58 24 28 |"+Z$.610| DIMTX$(|
|00001270| 36 29 2c 46 54 28 36 29 | 2c 42 4f 28 36 29 2c 55 |6),FT(6)|,BO(6),U|
|00001280| 4e 28 36 29 2c 44 42 24 | 28 31 29 2c 46 54 24 28 |N(6),DB$|(1),FT$(|
|00001290| 33 29 2c 42 44 24 28 31 | 29 2c 55 4e 24 28 31 29 |3),BD$(1|),UN$(1)|
|000012a0| 2c 46 24 28 33 29 0a 36 | 31 32 20 53 32 24 3d 22 |,F$(3).6|12 S2$="|
|000012b0| 1d 1d 1d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 2b 43 52 |        |    "+CR|
|000012d0| 24 2b 22 91 1d 1d 1d 22 | 3a 44 42 24 28 31 29 3d |$+"...."|:DB$(1)=|
|000012e0| 22 4f 46 46 2f 12 28 cf | ce 29 92 22 0a 36 31 34 |"OFF/.(.|.).".614|
|000012f0| 20 44 42 24 28 30 29 3d | 22 05 12 28 cf c6 c6 29 | DB$(0)=|"..(...)|
|00001300| 92 2f 4f 4e 22 3a 46 4f | 52 54 3d 30 54 4f 33 3a |./ON":FO|RT=0TO3:|
|00001310| 52 45 41 44 46 54 24 28 | 54 29 3a 4e 45 58 54 3a |READFT$(|T):NEXT:|
|00001320| 44 41 54 41 22 05 2a 20 | 20 20 20 20 20 22 2c 22 |DATA".* |     ","|
|00001330| 20 20 99 2a 20 20 20 20 | 22 2c 22 20 20 20 20 05 |  .*    |","    .|
|00001340| 2a 20 20 22 0a 36 31 36 | 20 42 44 24 28 30 29 3d |*  ".616| BD$(0)=|
|00001350| 22 20 22 3a 42 44 24 28 | 31 29 3d 22 9e 2a 22 3a |" ":BD$(|1)=".*":|
|00001360| 55 4e 24 28 30 29 3d 22 | 20 22 3a 55 4e 24 28 31 |UN$(0)="| ":UN$(1|
|00001370| 29 3d 22 9e 2a 22 3a 44 | 41 54 41 22 20 20 20 20 |)=".*":D|ATA"    |
|00001380| 20 20 99 2a 22 0a 36 31 | 38 20 44 4e 24 3d 55 46 |  .*".61|8 DN$=UF|
|00001390| 24 2b 42 46 24 2b 45 46 | 24 2b 53 46 24 2b 44 46 |$+BF$+EF|$+SF$+DF|
|000013a0| 24 2b 4e 4f 24 2b 43 52 | 24 2b 22 0a 22 3a 46 24 |$+NO$+CR|$+".":F$|
|000013b0| 28 30 29 3d 4e 4f 24 3a | 46 24 28 31 29 3d 49 54 |(0)=NO$:|F$(1)=IT|
|000013c0| 24 3a 46 24 28 32 29 3d | 53 42 24 0a 36 32 30 20 |$:F$(2)=|SB$.620 |
|000013d0| 46 24 28 33 29 3d 53 55 | 24 0a 36 35 30 20 50 52 |F$(3)=SU|$.650 PR|
|000013e0| 49 4e 54 53 50 24 22 91 | 22 3a 50 52 49 4e 54 22 |INTSP$".|":PRINT"|
|000013f0| 12 0e 08 d0 52 45 53 53 | 20 3c d2 c5 d4 d5 d2 ce |....RESS| <......|
|00001400| 3e 92 22 3b 0a 36 35 32 | 20 47 4f 53 55 42 32 31 |>.";.652| GOSUB21|
|00001410| 30 3a 4f 4e 2d 28 41 24 | 3c 3e 43 52 24 29 47 4f |0:ON-(A$|<>CR$)GO|
|00001420| 54 4f 36 35 32 3a 47 4f | 53 55 42 32 33 30 3a 50 |TO652:GO|SUB230:P|
|00001430| 52 49 4e 54 22 11 d7 48 | 41 54 20 49 53 20 54 48 |RINT"..H|AT IS TH|
|00001440| 45 20 4e 41 4d 45 20 4f | 46 20 54 48 45 20 47 52 |E NAME O|F THE GR|
|00001450| 41 50 48 49 43 3f 22 0a | 36 35 34 20 50 52 49 4e |APHIC?".|654 PRIN|
|00001460| 54 22 28 d4 59 50 45 20 | 24 20 54 4f 20 53 45 45 |T"(.YPE |$ TO SEE|
|00001470| 20 54 48 45 20 44 49 53 | 4b 20 44 49 52 45 43 54 | THE DIS|K DIRECT|
|00001480| 4f 52 59 29 22 0a 36 35 | 36 20 4d 58 3d 31 34 3a |ORY)".65|6 MX=14:|
|00001490| 47 4f 53 55 42 32 34 30 | 3a 4f 4e 2d 28 4e 24 3d |GOSUB240|:ON-(N$=|
|000014a0| 22 22 29 47 4f 54 4f 36 | 35 36 3a 50 52 49 4e 54 |"")GOTO6|56:PRINT|
|000014b0| 22 20 22 3a 49 46 4c 45 | 46 54 24 28 4e 24 2c 31 |" ":IFLE|FT$(N$,1|
|000014c0| 29 3c 3e 22 24 22 54 48 | 45 4e 36 38 30 0a 36 35 |)<>"$"TH|EN680.65|
|000014d0| 37 20 50 52 49 4e 54 22 | 93 05 09 8e 50 52 45 53 |7 PRINT"|....PRES|
|000014e0| 53 20 5b 53 50 41 43 45 | 20 42 41 52 5d 20 54 4f |S [SPACE| BAR] TO|
|000014f0| 20 41 42 4f 52 54 22 3a | 4f 50 45 4e 31 35 2c 38 | ABORT":|OPEN15,8|
|00001500| 2c 31 35 3a 4f 50 45 4e | 31 2c 38 2c 30 2c 4e 24 |,15:OPEN|1,8,0,N$|
|00001510| 3a 58 24 3d 22 22 3a 47 | 4f 53 55 42 32 36 30 3a |:X$="":G|OSUB260:|
|00001520| 49 46 45 52 54 48 45 4e | 36 38 32 0a 36 35 38 20 |IFERTHEN|682.658 |
|00001530| 47 45 54 23 31 2c 41 24 | 2c 42 24 0a 36 35 39 20 |GET#1,A$|,B$.659 |
|00001540| 47 45 54 23 31 2c 41 24 | 2c 41 24 2c 41 24 2c 42 |GET#1,A$|,A$,A$,B|
|00001550| 24 3a 43 3d 41 53 43 28 | 41 24 2b 43 48 52 24 28 |$:C=ASC(|A$+CHR$(|
|00001560| 30 29 29 2b 32 35 36 2a | 41 53 43 28 42 24 2b 43 |0))+256*|ASC(B$+C|
|00001570| 48 52 24 28 30 29 29 0a | 36 36 32 20 50 52 49 4e |HR$(0)).|662 PRIN|
|00001580| 54 43 3b 54 41 42 28 34 | 29 3b 0a 36 36 33 20 47 |TC;TAB(4|);.663 G|
|00001590| 45 54 23 31 2c 42 24 3a | 49 46 28 53 54 3c 3e 30 |ET#1,B$:|IF(ST<>0|
|000015a0| 29 54 48 45 4e 36 37 32 | 0a 36 36 34 20 49 46 42 |)THEN672|.664 IFB|
|000015b0| 24 3c 3e 43 48 52 24 28 | 33 34 29 54 48 45 4e 36 |$<>CHR$(|34)THEN6|
|000015c0| 36 33 0a 36 36 35 20 47 | 45 54 23 31 2c 42 24 3a |63.665 G|ET#1,B$:|
|000015d0| 49 46 42 24 3c 3e 43 48 | 52 24 28 33 34 29 54 48 |IFB$<>CH|R$(34)TH|
|000015e0| 45 4e 50 52 49 4e 54 42 | 24 3b 3a 47 4f 54 4f 36 |ENPRINTB|$;:GOTO6|
|000015f0| 36 35 0a 36 36 36 20 47 | 45 54 23 31 2c 42 24 3a |65.666 G|ET#1,B$:|
|00001600| 49 46 42 24 3d 22 20 22 | 54 48 45 4e 36 36 36 0a |IFB$=" "|THEN666.|
|00001610| 36 36 37 20 50 52 49 4e | 54 54 41 42 28 32 30 29 |667 PRIN|TTAB(20)|
|00001620| 3b 3a 43 24 3d 22 22 0a | 36 36 38 20 43 24 3d 43 |;:C$="".|668 C$=C|
|00001630| 24 2b 42 24 3a 47 45 54 | 23 31 2c 42 24 3a 49 46 |$+B$:GET|#1,B$:IF|
|00001640| 42 24 3c 3e 22 22 54 48 | 45 4e 36 36 38 0a 36 36 |B$<>""TH|EN668.66|
|00001650| 39 20 50 52 49 4e 54 4c | 45 46 54 24 28 43 24 2c |9 PRINTL|EFT$(C$,|
|00001660| 33 29 0a 36 37 30 20 47 | 45 54 41 24 3a 49 46 41 |3).670 G|ETA$:IFA|
|00001670| 24 3d 22 20 22 54 48 45 | 4e 50 52 49 4e 54 22 12 |$=" "THE|NPRINT".|
|00001680| 9e 41 42 4f 52 54 11 22 | 3a 47 4f 54 4f 36 37 36 |.ABORT."|:GOTO676|
|00001690| 0a 36 37 31 20 49 46 28 | 53 54 3d 30 29 54 48 45 |.671 IF(|ST=0)THE|
|000016a0| 4e 36 35 39 0a 36 37 32 | 20 50 52 49 4e 54 22 20 |N659.672| PRINT" |
|000016b0| 42 4c 4f 43 4b 53 20 46 | 52 45 45 22 0a 36 37 36 |BLOCKS F|REE".676|
|000016c0| 20 43 4c 4f 53 45 31 3a | 43 4c 4f 53 45 31 35 3a | CLOSE1:|CLOSE15:|
|000016d0| 50 52 49 4e 54 3a 47 4f | 54 4f 36 35 30 0a 36 38 |PRINT:GO|TO650.68|
|000016e0| 30 20 46 4c 24 3d 4e 24 | 2b 22 2c 50 2c 52 22 3a |0 FL$=N$|+",P,R":|
|000016f0| 4f 50 45 4e 31 35 2c 38 | 2c 31 35 3a 4f 50 45 4e |OPEN15,8|,15:OPEN|
|00001700| 31 2c 38 2c 32 2c 46 4c | 24 3a 47 4f 53 55 42 32 |1,8,2,FL|$:GOSUB2|
|00001710| 36 30 3a 49 46 45 52 3d | 30 54 48 45 4e 36 38 34 |60:IFER=|0THEN684|
|00001720| 0a 36 38 32 20 43 4c 4f | 53 45 31 3a 43 4c 4f 53 |.682 CLO|SE1:CLOS|
|00001730| 45 31 35 3a 50 52 49 4e | 54 22 2a c4 c9 d3 cb 20 |E15:PRIN|T"*.... |
|00001740| c5 d2 d2 cf d2 2a 22 3a | 50 52 49 4e 54 45 52 22 |.....*":|PRINTER"|
|00001750| 9d 2c 20 22 45 52 24 22 | 2c 22 54 52 22 9d 2c 22 |., "ER$"|,"TR".,"|
|00001760| 53 45 3a 47 4f 54 4f 36 | 35 30 0a 36 38 34 20 47 |SE:GOTO6|50.684 G|
|00001770| 45 54 23 31 2c 41 24 2c | 42 24 3a 50 4f 4b 45 32 |ET#1,A$,|B$:POKE2|
|00001780| 34 37 2c 30 3a 50 4f 4b | 45 32 34 38 2c 38 38 3a |47,0:POK|E248,88:|
|00001790| 53 59 53 39 35 38 3a 52 | 45 4d 20 4c 4f 41 44 20 |SYS958:R|EM LOAD |
|000017a0| 47 52 41 50 48 49 43 20 | 49 4e 54 4f 20 32 32 35 |GRAPHIC |INTO 225|
|000017b0| 32 38 0a 36 39 30 20 53 | 59 53 36 35 34 38 34 3a |28.690 S|YS65484:|
|000017c0| 43 4c 4f 53 45 31 3a 43 | 4c 4f 53 45 31 35 3a 53 |CLOSE1:C|LOSE15:S|
|000017d0| 59 53 38 32 38 3a 52 45 | 4d 20 52 4f 54 41 54 45 |YS828:RE|M ROTATE|
|000017e0| 20 47 52 41 50 48 49 43 | 20 46 4f 52 20 50 52 49 | GRAPHIC| FOR PRI|
|000017f0| 4e 54 45 52 0a 36 39 38 | 20 46 4f 52 54 3d 30 54 |NTER.698| FORT=0T|
|00001800| 4f 36 3a 54 58 24 28 54 | 29 3d 22 22 3a 46 54 28 |O6:TX$(T|)="":FT(|
|00001810| 54 29 3d 30 3a 42 4f 28 | 54 29 3d 30 3a 55 4e 28 |T)=0:BO(|T)=0:UN(|
|00001820| 54 29 3d 30 3a 4e 45 58 | 54 3a 4c 4e 3d 30 0a 37 |T)=0:NEX|T:LN=0.7|
|00001830| 30 30 20 47 4f 53 55 42 | 32 33 30 3a 50 52 49 4e |00 GOSUB|230:PRIN|
|00001840| 54 22 11 20 d4 59 50 45 | 20 49 4e 20 59 4f 55 52 |T". .YPE| IN YOUR|
|00001850| 20 54 45 58 54 3a 00 0a | 37 30 31 20 50 52 49 4e | TEXT:..|701 PRIN|
|00001860| 54 22 b0 b1 b1 b1 b1 b1 | b1 b1 b1 b1 b1 b1 b1 b1 |T"......|........|
|00001870| b1 b1 b1 b1 b1 b1 b1 b1 | b1 b1 b1 b1 ae 00 0a 37 |........|.......7|
|00001880| 30 32 20 50 52 49 4e 54 | 22 b3 20 20 20 20 20 20 |02 PRINT|".      |
|00001890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018a0| 20 20 20 ab 20 2a 00 0a | 37 30 33 20 50 52 49 4e |   . *..|703 PRIN|
|000018b0| 54 22 b3 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |T".     |        |
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 ab 20 2a 00 |        |    . *.|
|000018d0| 0a 37 30 34 20 50 52 49 | 4e 54 22 b3 20 20 20 20 |.704 PRI|NT".    |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018f0| 20 20 20 20 20 ab 20 2a | 00 0a 37 30 35 20 50 52 |     . *|..705 PR|
|00001900| 49 4e 54 22 b3 20 20 20 | 20 20 20 20 20 20 20 20 |INT".   |        |
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 ab 20 |        |      . |
|00001920| 2a 00 0a 37 30 36 20 50 | 52 49 4e 54 22 b3 20 20 |*..706 P|RINT".  |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001940| 20 20 20 20 20 20 20 ab | 20 2a 00 0a 37 30 37 20 |       .| *..707 |
|00001950| 50 52 49 4e 54 22 b3 20 | 20 20 20 20 20 20 20 20 |PRINT". |        |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001970| ab 20 2a 00 0a 37 30 38 | 20 50 52 49 4e 54 22 b3 |. *..708| PRINT".|
|00001980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001990| 20 20 20 20 20 20 20 20 | 20 ab 20 2a 00 0a 37 30 |        | . *..70|
|000019a0| 39 20 50 52 49 4e 54 22 | ad b2 b2 b2 b2 b2 b2 b2 |9 PRINT"|........|
|000019b0| b2 b2 b2 b2 b2 b2 b2 b2 | b2 b2 b2 b2 b2 b2 b2 b2 |........|........|
|000019c0| b2 b2 bd 20 5e 20 99 5e | 20 05 5e 20 99 5e 20 9e |... ^ .^| .^ .^ .|
|000019d0| 5e 20 5e 00 0a 37 31 30 | 20 50 52 49 4e 54 54 41 |^ ^..710| PRINTTA|
|000019e0| 42 28 32 37 29 22 05 ce | dd 99 c9 dd 05 d3 dd 99 |B(27)"..|........|
|000019f0| d3 dd 9e c2 dd d5 dd 00 | 0a 37 31 31 20 50 52 49 |........|.711 PRI|
|00001a00| 4e 54 22 98 46 31 20 c7 | 4f 20 54 4f 20 50 52 45 |NT".F1 .|O TO PRE|
|00001a10| 56 49 4f 55 53 20 4c 49 | 4e 45 20 20 20 20 20 05 |VIOUS LI|NE     .|
|00001a20| 4f dd 99 54 dd 05 55 dd | 99 55 dd 9e 4f dd 4e dd |O..T..U.|.U..O.N.|
|00001a30| 00 0a 37 31 32 20 50 52 | 49 4e 54 22 98 46 33 20 |..712 PR|INT".F3 |
|00001a40| d4 4f 47 47 4c 45 20 42 | 4f 4c 44 46 41 43 45 20 |.OGGLE B|OLDFACE |
|00001a50| 4f 4e 2f 4f 46 46 20 20 | 05 52 dd 99 41 dd 05 50 |ON/OFF  |.R..A..P|
|00001a60| dd 99 42 dd 9e 4c dd 44 | dd 00 0a 37 31 33 20 50 |..B..L.D|...713 P|
|00001a70| 52 49 4e 54 22 98 46 35 | 20 d4 4f 47 47 4c 45 20 |RINT".F5| .OGGLE |
|00001a80| 46 4f 4e 54 20 53 54 59 | 4c 45 20 20 20 20 20 20 |FONT STY|LE      |
|00001a90| 20 05 4d dd 99 4c dd 05 | 45 dd 99 53 dd 9e 44 dd | .M..L..|E..S..D.|
|00001aa0| 45 dd 00 0a 37 31 34 20 | 50 52 49 4e 54 22 98 46 |E...714 |PRINT".F|
|00001ab0| 37 20 c7 4f 20 54 4f 20 | 4e 45 58 54 20 4c 49 4e |7 .O TO |NEXT LIN|
|00001ac0| 45 20 20 20 20 20 20 20 | 20 20 05 41 dd 99 49 dd |E       |  .A..I.|
|00001ad0| 05 52 dd 99 43 dd 9e 46 | dd 52 dd 00 0a 37 31 35 |.R..C..F|.R...715|
|00001ae0| 20 50 52 49 4e 54 22 98 | 46 32 20 d4 4f 47 47 4c | PRINT".|F2 .OGGL|
|00001af0| 45 20 44 4f 55 42 4c 45 | 20 05 4f 4e 2f 12 28 cf |E DOUBLE| .ON/.(.|
|00001b00| c6 c6 29 92 20 20 4c bd | 99 43 bd 05 53 bd 99 52 |..).  L.|.C..S..R|
|00001b10| bd 9e 41 dd 4c dd 00 0a | 37 31 36 20 50 52 49 4e |..A.L...|716 PRIN|
|00001b20| 54 22 98 46 34 20 d4 4f | 47 47 4c 45 20 55 4e 44 |T".F4 .O|GGLE UND|
|00001b30| 45 52 4c 49 4e 45 20 4f | 4e 2f 4f 46 46 22 54 41 |ERLINE O|N/OFF"TA|
|00001b40| 42 28 33 35 29 22 9e 43 | dd 4e dd 00 0a 37 31 37 |B(35)".C|.N...717|
|00001b50| 20 50 52 49 4e 54 22 98 | c3 d4 d2 cc 2d d0 20 d0 | PRINT".|....-. .|
|00001b60| 52 49 4e 54 20 4c 41 42 | 45 4c 53 22 54 41 42 28 |RINT LAB|ELS"TAB(|
|00001b70| 33 35 29 22 9e 45 bd 45 | bd 00 0a 37 31 38 20 50 |35)".E.E|...718 P|
|00001b80| 52 49 4e 54 22 98 c3 d4 | d2 cc 2d d8 20 d1 55 49 |RINT"...|..-. .UI|
|00001b90| 54 00 0a 37 32 30 20 44 | 42 3d 30 3a 50 52 49 4e |T..720 D|B=0:PRIN|
|00001ba0| 54 22 13 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |T"......|........|
|00001bb0| 11 11 11 11 22 54 41 42 | 28 31 37 29 44 42 24 28 |...."TAB|(17)DB$(|
|00001bc0| 30 29 0a 37 32 32 20 50 | 52 49 4e 54 22 13 11 11 |0).722 P|RINT"...|
|00001bd0| 11 1d 22 3b 3a 46 4f 52 | 54 3d 30 54 4f 4c 4e 3a |..";:FOR|T=0TOLN:|
|00001be0| 50 52 49 4e 54 22 11 22 | 3b 3a 4e 45 58 54 0a 37 |PRINT"."|;:NEXT.7|
|00001bf0| 32 34 20 50 52 49 4e 54 | 22 05 22 54 58 24 28 4c |24 PRINT|"."TX$(L|
|00001c00| 4e 29 3b 3a 50 4f 4b 45 | 32 31 32 2c 30 3a 4e 24 |N);:POKE|212,0:N$|
|00001c10| 3d 54 58 24 28 4c 4e 29 | 3a 4e 3d 4c 45 4e 28 4e |=TX$(LN)|:N=LEN(N|
|00001c20| 24 29 0a 37 32 36 20 47 | 4f 53 55 42 32 31 30 3a |$).726 G|OSUB210:|
|00001c30| 49 46 41 24 3d 43 52 24 | 4f 52 41 24 3d 22 88 22 |IFA$=CR$|ORA$="."|
|00001c40| 54 48 45 4e 50 52 49 4e | 54 22 20 22 3a 54 58 24 |THENPRIN|T" ":TX$|
|00001c50| 28 4c 4e 29 3d 4e 24 3a | 4c 4e 3d 4c 4e 2b 31 2b |(LN)=N$:|LN=LN+1+|
|00001c60| 37 2a 28 4c 4e 3d 36 29 | 3a 47 4f 54 4f 37 32 32 |7*(LN=6)|:GOTO722|
|00001c70| 0a 37 32 37 20 49 46 41 | 24 3d 22 a0 22 54 48 45 |.727 IFA|$="."THE|
|00001c80| 4e 41 24 3d 22 20 22 0a | 37 32 38 20 49 46 41 24 |NA$=" ".|728 IFA$|
|00001c90| 3d 22 89 22 54 48 45 4e | 50 52 49 4e 54 22 20 22 |="."THEN|PRINT" "|
|00001ca0| 3a 44 42 3d 2d 28 44 42 | 3d 30 29 3a 54 58 24 28 |:DB=-(DB|=0):TX$(|
|00001cb0| 4c 4e 29 3d 4e 24 3a 50 | 52 49 4e 54 22 13 11 11 |LN)=N$:P|RINT"...|
|00001cc0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 22 |........|......."|
|00001cd0| 54 41 42 28 31 37 29 44 | 42 24 28 44 42 29 3a 47 |TAB(17)D|B$(DB):G|
|00001ce0| 4f 54 4f 37 32 32 0a 37 | 33 30 20 49 46 41 24 3d |OTO722.7|30 IFA$=|
|00001cf0| 44 4c 24 54 48 45 4e 49 | 46 4e 54 48 45 4e 50 52 |DL$THENI|FNTHENPR|
|00001d00| 49 4e 54 22 20 9d 9d 22 | 3b 3a 4e 3d 4e 2d 31 3a |INT" .."|;:N=N-1:|
|00001d10| 4e 24 3d 4c 45 46 54 24 | 28 4e 24 2c 4e 29 3a 4f |N$=LEFT$|(N$,N):O|
|00001d20| 4e 2d 28 52 49 47 48 54 | 24 28 4e 24 2c 31 29 3d |N-(RIGHT|$(N$,1)=|
|00001d30| 22 af 22 29 47 4f 54 4f | 37 33 30 3a 47 4f 54 4f |".")GOTO|730:GOTO|
|00001d40| 37 32 36 0a 37 33 32 20 | 49 46 41 24 3c 22 20 22 |726.732 |IFA$<" "|
|00001d50| 4f 52 41 24 3e 22 da 22 | 4f 52 28 41 24 3e 22 5e |ORA$>"."|OR(A$>"^|
|00001d60| 22 41 4e 44 41 24 3c 22 | c1 22 29 54 48 45 4e 37 |"ANDA$<"|.")THEN7|
|00001d70| 34 30 0a 37 33 34 20 49 | 46 4e 3e 32 33 2b 28 44 |40.734 I|FN>23+(D|
|00001d80| 42 3d 31 29 54 48 45 4e | 37 32 36 0a 37 33 36 20 |B=1)THEN|726.736 |
|00001d90| 49 46 44 42 3d 31 54 48 | 45 4e 50 52 49 4e 54 22 |IFDB=1TH|ENPRINT"|
|00001da0| af 22 3b 3a 4e 24 3d 4e | 24 2b 22 af 22 3a 4e 3d |.";:N$=N|$+".":N=|
|00001db0| 4e 2b 31 0a 37 33 38 20 | 50 52 49 4e 54 41 24 3b |N+1.738 |PRINTA$;|
|00001dc0| 3a 4e 3d 4e 2b 31 3a 4e | 24 3d 4e 24 2b 41 24 3a |:N=N+1:N|$=N$+A$:|
|00001dd0| 49 46 41 24 3d 51 54 24 | 54 48 45 4e 50 4f 4b 45 |IFA$=QT$|THENPOKE|
|00001de0| 32 31 32 2c 30 0a 37 33 | 39 20 47 4f 54 4f 37 32 |212,0.73|9 GOTO72|
|00001df0| 36 0a 37 34 30 20 49 46 | 41 24 3d 22 85 22 54 48 |6.740 IF|A$="."TH|
|00001e00| 45 4e 50 52 49 4e 54 22 | 20 22 3a 54 58 24 28 4c |ENPRINT"| ":TX$(L|
|00001e10| 4e 29 3d 4e 24 3a 4c 4e | 3d 4c 4e 2d 31 2d 37 2a |N)=N$:LN|=LN-1-7*|
|00001e20| 28 4c 4e 3d 30 29 3a 47 | 4f 54 4f 37 32 32 0a 37 |(LN=0):G|OTO722.7|
|00001e30| 34 32 20 49 46 41 24 3d | 22 8a 22 54 48 45 4e 50 |42 IFA$=|"."THENP|
|00001e40| 52 49 4e 54 22 20 22 3b | 3a 55 4e 28 4c 4e 29 3d |RINT" ";|:UN(LN)=|
|00001e50| 2d 28 55 4e 28 4c 4e 29 | 3d 30 29 3a 50 52 49 4e |-(UN(LN)|=0):PRIN|
|00001e60| 54 54 41 42 28 33 38 29 | 55 4e 24 28 55 4e 28 4c |TTAB(38)|UN$(UN(L|
|00001e70| 4e 29 29 0a 37 34 34 20 | 49 46 41 24 3d 22 8a 22 |N)).744 |IFA$="."|
|00001e80| 54 48 45 4e 54 58 24 28 | 4c 4e 29 3d 4e 24 3a 50 |THENTX$(|LN)=N$:P|
|00001e90| 52 49 4e 54 22 91 1d 22 | 3b 3a 47 4f 54 4f 37 32 |RINT".."|;:GOTO72|
|00001ea0| 34 0a 37 34 36 20 49 46 | 41 24 3d 22 10 22 54 48 |4.746 IF|A$="."TH|
|00001eb0| 45 4e 50 52 49 4e 54 22 | 20 22 3a 54 58 24 28 4c |ENPRINT"| ":TX$(L|
|00001ec0| 4e 29 3d 4e 24 3a 47 4f | 54 4f 38 30 30 0a 37 34 |N)=N$:GO|TO800.74|
|00001ed0| 38 20 49 46 41 24 3d 22 | 18 22 54 48 45 4e 41 24 |8 IFA$="|."THENA$|
|00001ee0| 3d 22 51 22 3a 47 4f 54 | 4f 39 30 38 0a 37 35 30 |="Q":GOT|O908.750|
|00001ef0| 20 49 46 41 24 3d 22 86 | 22 54 48 45 4e 50 52 49 | IFA$=".|"THENPRI|
|00001f00| 4e 54 22 20 22 3b 3a 42 | 44 28 4c 4e 29 3d 2d 28 |NT" ";:B|D(LN)=-(|
|00001f10| 42 44 28 4c 4e 29 3d 30 | 29 3a 50 52 49 4e 54 54 |BD(LN)=0|):PRINTT|
|00001f20| 41 42 28 33 36 29 42 44 | 24 28 42 44 28 4c 4e 29 |AB(36)BD|$(BD(LN)|
|00001f30| 29 0a 37 35 32 20 49 46 | 41 24 3d 22 86 22 54 48 |).752 IF|A$="."TH|
|00001f40| 45 4e 54 58 24 28 4c 4e | 29 3d 4e 24 3a 50 52 49 |ENTX$(LN|)=N$:PRI|
|00001f50| 4e 54 22 91 1d 22 3b 3a | 47 4f 54 4f 37 32 34 0a |NT"..";:|GOTO724.|
|00001f60| 37 35 34 20 49 46 41 24 | 3d 22 87 22 54 48 45 4e |754 IFA$|="."THEN|
|00001f70| 50 52 49 4e 54 22 20 22 | 3b 3a 46 54 28 4c 4e 29 |PRINT" "|;:FT(LN)|
|00001f80| 3d 46 54 28 4c 4e 29 2b | 31 2b 34 2a 28 46 54 28 |=FT(LN)+|1+4*(FT(|
|00001f90| 4c 4e 29 3d 33 29 3a 50 | 52 49 4e 54 54 41 42 28 |LN)=3):P|RINTTAB(|
|00001fa0| 32 38 29 46 54 24 28 46 | 54 28 4c 4e 29 29 0a 37 |28)FT$(F|T(LN)).7|
|00001fb0| 35 36 20 49 46 41 24 3d | 22 87 22 54 48 45 4e 50 |56 IFA$=|"."THENP|
|00001fc0| 52 49 4e 54 22 91 1d 22 | 3b 3a 54 58 24 28 4c 4e |RINT".."|;:TX$(LN|
|00001fd0| 29 3d 4e 24 3a 47 4f 54 | 4f 37 32 34 0a 37 35 38 |)=N$:GOT|O724.758|
|00001fe0| 20 47 4f 54 4f 37 32 36 | 0a 38 30 30 20 50 52 49 | GOTO726|.800 PRI|
|00001ff0| 4e 54 22 13 11 11 11 11 | 11 11 11 11 11 11 11 11 |NT".....|........|
|00002000| 11 11 11 11 11 11 11 11 | 11 c8 4f 57 20 4d 41 4e |........|..OW MAN|
|00002010| 59 20 4c 41 42 45 4c 53 | 20 44 4f 20 59 4f 55 20 |Y LABELS| DO YOU |
|00002020| 57 41 4e 54 3f 20 22 3b | 3a 4e 24 3d 22 22 3a 4e |WANT? ";|:N$="":N|
|00002030| 3d 30 0a 38 30 32 20 47 | 4f 53 55 42 32 31 30 3a |=0.802 G|OSUB210:|
|00002040| 49 46 41 24 3d 43 52 24 | 54 48 45 4e 50 52 49 4e |IFA$=CR$|THENPRIN|
|00002050| 54 22 20 22 3a 4e 3d 56 | 41 4c 28 4e 24 29 3a 4f |T" ":N=V|AL(N$):O|
|00002060| 4e 2d 28 4e 24 3d 22 22 | 29 47 4f 54 4f 38 30 30 |N-(N$=""|)GOTO800|
|00002070| 3a 47 4f 54 4f 38 32 30 | 0a 38 30 34 20 49 46 41 |:GOTO820|.804 IFA|
|00002080| 24 3d 44 4c 24 54 48 45 | 4e 49 46 28 4e 29 54 48 |$=DL$THE|NIF(N)TH|
|00002090| 45 4e 50 52 49 4e 54 22 | 20 9d 9d 22 3b 3a 4e 3d |ENPRINT"| ..";:N=|
|000020a0| 4e 2d 31 3a 4e 24 3d 4c | 45 46 54 24 28 4e 24 2c |N-1:N$=L|EFT$(N$,|
|000020b0| 4e 29 3a 47 4f 54 4f 38 | 30 32 0a 38 30 36 20 49 |N):GOTO8|02.806 I|
|000020c0| 46 41 24 3c 22 30 22 4f | 52 41 24 3e 22 39 22 4f |FA$<"0"O|RA$>"9"O|
|000020d0| 52 4e 3d 32 54 48 45 4e | 38 30 32 0a 38 30 38 20 |RN=2THEN|802.808 |
|000020e0| 50 52 49 4e 54 41 24 3b | 3a 4e 3d 4e 2b 31 3a 4e |PRINTA$;|:N=N+1:N|
|000020f0| 24 3d 4e 24 2b 41 24 3a | 47 4f 54 4f 38 30 32 0a |$=N$+A$:|GOTO802.|
|00002100| 38 32 30 20 4e 4f 3d 56 | 41 4c 28 4e 24 29 3a 49 |820 NO=V|AL(N$):I|
|00002110| 46 4e 4f 3d 30 54 48 45 | 4e 50 52 49 4e 54 22 91 |FNO=0THE|NPRINT".|
|00002120| 22 53 50 24 3a 47 4f 54 | 4f 39 30 32 0a 38 32 32 |"SP$:GOT|O902.822|
|00002130| 20 4f 50 45 4e 31 2c 34 | 2c 35 3a 4f 50 45 4e 32 | OPEN1,4|,5:OPEN2|
|00002140| 2c 34 2c 38 3a 50 52 49 | 4e 54 23 31 2c 22 1b 40 |,4,8:PRI|NT#1,".@|
|00002150| 1b 41 08 22 50 30 24 3a | 46 4f 52 54 55 4e 45 20 |.A."P0$:|FORTUNE |
|00002160| 3d 20 31 20 54 4f 4e 20 | 4f 46 20 53 49 4c 56 45 |= 1 TON |OF SILVE|
|00002170| 52 20 42 41 52 53 0a 38 | 32 34 20 46 4f 52 54 3d |R BARS.8|24 FORT=|
|00002180| 30 54 4f 36 3a 50 52 49 | 4e 54 23 31 2c 22 1b 4c |0TO6:PRI|NT#1,".L|
|00002190| 58 22 5a 24 3b 3a 46 4f | 52 4c 3d 32 31 37 36 30 |X"Z$;:FO|RL=21760|
|000021a0| 54 4f 32 31 38 34 37 3a | 50 52 49 4e 54 23 31 2c |TO21847:|PRINT#1,|
|000021b0| 43 48 52 24 28 50 45 45 | 4b 28 54 2a 38 38 2b 4c |CHR$(PEE|K(T*88+L|
|000021c0| 29 29 3b 3a 4e 45 58 54 | 4c 0a 38 32 36 20 50 52 |));:NEXT|L.826 PR|
|000021d0| 49 4e 54 23 31 2c 46 24 | 28 46 54 28 54 29 29 3b |INT#1,F$|(FT(T));|
|000021e0| 3a 49 46 42 44 28 54 29 | 54 48 45 4e 50 52 49 4e |:IFBD(T)|THENPRIN|
|000021f0| 54 23 31 2c 45 4d 24 3b | 0a 38 32 38 20 49 46 55 |T#1,EM$;|.828 IFU|
|00002200| 4e 28 54 29 54 48 45 4e | 50 52 49 4e 54 23 31 2c |N(T)THEN|PRINT#1,|
|00002210| 55 4f 24 3b 0a 38 33 30 | 20 4e 3d 4c 45 4e 28 54 |UO$;.830| N=LEN(T|
|00002220| 58 24 28 54 29 29 3a 49 | 46 4e 3d 30 54 48 45 4e |X$(T)):I|FN=0THEN|
|00002230| 38 36 30 0a 38 33 32 20 | 58 3d 30 3a 46 4f 52 4c |860.832 |X=0:FORL|
|00002240| 3d 31 54 4f 4e 3a 41 24 | 3d 4d 49 44 24 28 54 58 |=1TON:A$|=MID$(TX|
|00002250| 24 28 54 29 2c 4c 2c 31 | 29 3a 49 46 41 24 3c 3e |$(T),L,1|):IFA$<>|
|00002260| 22 af 22 54 48 45 4e 38 | 33 38 0a 38 33 34 20 49 |"."THEN8|38.834 I|
|00002270| 46 58 3d 30 54 48 45 4e | 58 3d 31 3a 50 52 49 4e |FX=0THEN|X=1:PRIN|
|00002280| 54 23 31 2c 44 57 24 3b | 0a 38 33 36 20 4c 3d 4c |T#1,DW$;|.836 L=L|
|00002290| 2b 31 3a 41 24 3d 4d 49 | 44 24 28 54 58 24 28 54 |+1:A$=MI|D$(TX$(T|
|000022a0| 29 2c 4c 2c 31 29 3a 47 | 4f 54 4f 38 34 30 0a 38 |),L,1):G|OTO840.8|
|000022b0| 33 38 20 49 46 58 3d 31 | 54 48 45 4e 58 3d 30 3a |38 IFX=1|THENX=0:|
|000022c0| 50 52 49 4e 54 23 31 2c | 44 46 24 3b 0a 38 34 30 |PRINT#1,|DF$;.840|
|000022d0| 20 50 52 49 4e 54 23 32 | 2c 41 24 3b 3a 4e 45 58 | PRINT#2|,A$;:NEX|
|000022e0| 54 4c 0a 38 36 30 20 50 | 52 49 4e 54 23 31 2c 44 |TL.860 P|RINT#1,D|
|000022f0| 4e 24 3a 4e 45 58 54 54 | 3a 50 52 49 4e 54 23 31 |N$:NEXTT|:PRINT#1|
|00002300| 2c 22 0a 0a 22 0a 39 30 | 30 20 4e 45 58 54 20 54 |,"..".90|0 NEXT T|
|00002310| 55 45 53 44 41 59 20 57 | 45 20 57 49 4c 4c 20 48 |UESDAY W|E WILL H|
|00002320| 41 56 45 20 41 20 4d 45 | 45 54 49 4e 47 20 53 4f |AVE A ME|ETING SO|
|00002330| 20 42 52 49 4e 47 20 43 | 48 41 49 52 53 3a 50 52 | BRING C|HAIRS:PR|
|00002340| 49 4e 54 23 31 3a 43 4c | 4f 53 45 31 3a 50 52 49 |INT#1:CL|OSE1:PRI|
|00002350| 4e 54 23 32 3a 43 4c 4f | 53 45 32 0a 39 30 32 20 |NT#2:CLO|SE2.902 |
|00002360| 50 52 49 4e 54 22 91 22 | 53 50 24 3a 50 52 49 4e |PRINT"."|SP$:PRIN|
|00002370| 54 22 91 05 12 3c cd 3e | 92 4f 52 45 20 4f 46 20 |T"...<.>|.ORE OF |
|00002380| 53 41 4d 45 2c 20 12 3c | ce 3e 92 45 57 2c 20 4f |SAME, .<|.>.EW, O|
|00002390| 52 20 12 3c d1 3e 92 55 | 49 54 3f 20 22 3b 0a 39 |R .<.>.U|IT? ";.9|
|000023a0| 30 34 20 47 4f 53 55 42 | 32 31 30 3a 49 46 41 24 |04 GOSUB|210:IFA$|
|000023b0| 3d 22 4d 22 4f 52 41 24 | 3d 22 cd 22 54 48 45 4e |="M"ORA$|="."THEN|
|000023c0| 50 52 49 4e 54 22 91 22 | 3a 50 52 49 4e 54 53 50 |PRINT"."|:PRINTSP|
|000023d0| 24 3a 47 4f 54 4f 38 30 | 30 0a 39 30 36 20 49 46 |$:GOTO80|0.906 IF|
|000023e0| 41 24 3d 22 4e 22 4f 52 | 41 24 3d 22 ce 22 54 48 |A$="N"OR|A$="."TH|
|000023f0| 45 4e 50 52 49 4e 54 22 | 91 22 3a 50 52 49 4e 54 |ENPRINT"|.":PRINT|
|00002400| 53 50 24 22 91 22 3a 47 | 4f 54 4f 39 32 30 0a 39 |SP$".":G|OTO920.9|
|00002410| 30 38 20 49 46 41 24 3d | 22 d1 22 4f 52 41 24 3d |08 IFA$=|"."ORA$=|
|00002420| 22 51 22 54 48 45 4e 39 | 31 32 0a 39 31 30 20 47 |"Q"THEN9|12.910 G|
|00002430| 4f 54 4f 39 30 34 0a 39 | 31 32 20 50 52 49 4e 54 |OTO904.9|12 PRINT|
|00002440| 22 93 05 8e 48 4f 50 45 | 20 59 4f 55 20 45 4e 4a |"...HOPE| YOU ENJ|
|00002450| 4f 59 45 44 20 54 48 45 | 20 50 52 4f 47 52 41 4d |OYED THE| PROGRAM|
|00002460| 21 09 22 3a 50 4f 4b 45 | 35 36 2c 31 36 30 3a 43 |!.":POKE|56,160:C|
|00002470| 4c 52 3a 45 4e 44 0a 39 | 32 30 20 50 52 49 4e 54 |LR:END.9|20 PRINT|
|00002480| 22 d5 53 45 20 54 48 45 | 20 53 41 4d 45 20 47 52 |".SE THE| SAME GR|
|00002490| 41 50 48 49 43 20 28 d9 | 2f ce 29 3f 20 22 3b 0a |APHIC (.|/.)? ";.|
|000024a0| 39 32 32 20 47 4f 53 55 | 42 32 31 30 3a 49 46 41 |922 GOSU|B210:IFA|
|000024b0| 24 3d 22 4e 22 4f 52 41 | 24 3d 22 ce 22 54 48 45 |$="N"ORA|$="."THE|
|000024c0| 4e 50 52 49 4e 54 22 20 | 91 22 3a 50 52 49 4e 54 |NPRINT" |.":PRINT|
|000024d0| 53 50 24 22 91 22 3a 47 | 4f 54 4f 36 35 30 0a 39 |SP$".":G|OTO650.9|
|000024e0| 32 34 20 49 46 41 24 3d | 22 59 22 4f 52 41 24 3d |24 IFA$=|"Y"ORA$=|
|000024f0| 22 d9 22 54 48 45 4e 50 | 52 49 4e 54 22 20 91 22 |"."THENP|RINT" ."|
|00002500| 3a 50 52 49 4e 54 53 50 | 24 22 91 22 3a 47 4f 54 |:PRINTSP|$".":GOT|
|00002510| 4f 36 39 38 0a 39 32 36 | 20 47 4f 54 4f 39 32 34 |O698.926| GOTO924|
|00002520| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+